home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Games / Games'More / C-D / DM_3000 / DM 3000 / card_22749.txt < prev    next >
Encoding:
Text File  |  1988-06-06  |  3.1 KB  |  140 lines
  1. -- card: 22749 from stack: in
  2. -- bmap block id: 28703
  3. -- flags: 4000
  4. -- background id: 2604
  5. -- name: SPORTING/GOODS
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global inventory
  9.   global pocketbook
  10.   put inventory into background field "ShowMe"
  11.   put pocketbook into background field "CountMe"
  12. end openCard
  13.  
  14.  
  15. -- part 1 (button)
  16. -- low flags: 00
  17. -- high flags: 2000
  18. -- rect: left=345 top=81 right=103 bottom=365
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 29019 / 29019
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: N/TO/OUT/SPORT
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   go to card id 11490
  30. end mouseUp
  31.  
  32.  
  33.  
  34.  
  35. -- part 2 (button)
  36. -- low flags: 00
  37. -- high flags: 2000
  38. -- rect: left=97 top=229 right=263 bottom=118
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: GET/PARKA
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   global pocketbook
  50.   global inventory
  51.   if pocketbook >24 then
  52.     subtract 25 from pocketbook
  53.     put ", parka" after inventory
  54.     put "You buy a warm parka." into Msg
  55.     wait 3 seconds
  56.     doMenu "Message"
  57.     put inventory into background field "ShowMe"
  58.     put pocketbook into background field "CountMe"
  59.   else
  60.     put "Deposit 25 Credits." into Msg
  61.     wait 3 seconds
  62.     doMenu "Message"
  63.   end if
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 3 (button)
  69. -- low flags: 00
  70. -- high flags: 2000
  71. -- rect: left=192 top=79 right=111 bottom=211
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: GET/RACKET
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   global pocketbook
  83.   global inventory
  84.   if pocketbook >19 then
  85.     subtract 20 from pocketbook
  86.     put ", tennis racket" after inventory
  87.     put "You get a spiffy tennis racket." into Msg
  88.     wait 3 seconds
  89.     doMenu "Message"
  90.     put inventory into background field "ShowMe"
  91.     put pocketbook into background field "CountMe"
  92.   else
  93.     put "Deposit 20 Credits." into Msg
  94.     wait 3 seconds
  95.     doMenu "Message"
  96.   end if
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part 4 (button)
  102. -- low flags: 00
  103. -- high flags: 2000
  104. -- rect: left=283 top=154 right=189 bottom=302
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: GET/BAT
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   global pocketbook
  116.   global inventory
  117.   if pocketbook >19 then
  118.     subtract 20 from pocketbook
  119.     put ", fungicide" after inventory
  120.     put "You get a can of fungicide." into Msg
  121.     wait 3 seconds
  122.     doMenu "Message"
  123.     put inventory into background field "ShowMe"
  124.     put pocketbook into background field "CountMe"
  125.   else
  126.     put "Deposit 20 Credits." into Msg
  127.     wait 3 seconds
  128.     doMenu "Message"
  129.   end if
  130. end mouseUp
  131.  
  132.  
  133.  
  134. -- part contents for background part 6
  135. ----- text -----
  136. You are carrying: empty multicorder
  137.  
  138. -- part contents for background part 8
  139. ----- text -----
  140. 0